home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / quitbox.dir / Internal_41_Print Button.ls < prev    next >
Encoding:
Text File  |  2005-08-22  |  742 b   |  29 lines
  1. on mouseDown
  2.   global gFirstName, gLastName, gDataTub, gPrint
  3.   puppetSound("single click")
  4.   updateStage()
  5.   puppetSprite(5, 1)
  6.   set the castNum of sprite 5 to the number of member "print hi"
  7.   updateStage()
  8.   repeat while the stillDown
  9.     nothing()
  10.   end repeat
  11.   set the castNum of sprite 5 to the number of member "print"
  12.   updateStage()
  13.   repeat while soundBusy(1)
  14.     nothing()
  15.   end repeat
  16.   printStuff = the text of field "print stuff"
  17.   doc = new(xtra("PrintOMatic"))
  18.   if not objectp(doc) then
  19.     alert("Sorry - Unable to print because of an error." && doc)
  20.   else
  21.     setProgressPict(doc, member("print pict"))
  22.     setLandscapeMode(doc, 0)
  23.     newPage(doc)
  24.     append(doc, printStuff, 1)
  25.     print(doc)
  26.     doc = 0
  27.   end if
  28. end
  29.